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Find out why Antic is . 

^1 in Editorial 

^1 in User Support 

*1 in Software 

^1 in Circulation 

^^1 in Advertising Sales 



you CAN COUNT ON 
ANTIC TO BE THERE 
WHEN & WHERE you 
NEED US-EVERY 
MONTH! 



No other magazine covers 
the Atari marl<et as compre- 
hensively as Antic, and no 
magazine is more passion- 
ately committed to bringing 
you and the Atari together. 
No wonder that more Atari 
owners read Antic than any 
other computer magazine. 




GET STARTED TODAY! 



^^ ^^Tu. ATABI r. 



SAVE $14.00 



The ATARI Resource 



GET STARTED TODAY! Lowest Price Available 

U Yes, please send me a full year of Antic Magazine (12 issues) at the special money-savins rate 
of $28.00. 1 understand that's a discount of over 34% off the newsstand rate. Bill me later. 



Name. 



Company. 
Address — 
City 



(please print) 



-State. 



-Zip. 



This Offer For New Subscribers Only 



EH5S1A 



Please allow 4-6 weeks for delivery of your first issue. 
Canadian & Mexican residents add S8.00 Per year. Other 
Foreisn subscriptions add SI 2.00 Per year. (Payment must 
accompany all overseas orders.) 






The ATARI Resource 



THE EASIEST WAY 
TO GET STARTED! 




Magazine & Disl< 
Just $8.32 Per Month 



LI Yes, I want more time to enjoy my Atari computer. Please send me the monthly Software Disk 
(12 Issues) with the regular Antic Magazine subscription at the special money-saving rate 
of S99.95. 

LI Check enclosed LJ Bill my credit card 

Name Company 



Address . 
City 



(please print) 



State . 



Zip. 



Credit Card * . 
Exp. Date 



D VISA D MC 



Signature , 



This Offer For New Subscribers Only 

EH5S1B 



Please allow 4-6 weeks for delivery of your first 

Issue. 

All Foreign subscriptions add $50.00 per year. 

Use envelope for this card. 



Anfic 

^^ ^^ Thai ATADI Dscn. irro 



SAVE $14.00 



The ATARI Resource 



GET STARTED TODAY! 



Lowest Price Available 



□ Yes, please send me a full year of Antic Magazine (12 issues) at the special money-saving rate 
of $28.00. 1 understand that's a discount of over 34% off the newsstand rate. Bill me later. 



Name. 



(please print) 



Company. 
Address _ 
City 



.State. 



-Zip. 



This Offer For New Subscribers Only 



Please allow 4-6 weeks for delivery of your first issue. 
Canadian & Mexican residents add 58.00 Per year Otiier 
Foreisn subscriptions add S12.00 Per year. (Payment must 
accompany all overseas orders.) 



BUSINESS REPLY MAIL 

FIRST CLASS PERMIT NO. 696 MARION, OH 

POSTAGE WILL BE PAID BY ADDRESSEE 



NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 



^^r ^^^ The ATARI Resource 



Antic 

P.O. Box 1919 

Marion, OH 43306 



BUSINESS REPLY MAIL 

FIRST CLASS PERMIT NO. 696 MARION, OH 

POSTAGE WILL BE PAID BY ADDRESSEE 



NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 
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^1^ ^^^ The ATARI Resource 



Antic 

P.O. Box 1919 

Marion, OH 43306 



BUSINESS REPLY MAIL 

FIRST CLASS PERMIT NO. 696 MARION, OH 

POSTAGE WILL BE PAID BY ADDRESSEE 
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^m ^^r The ATARI Resource 



Antic 

P.O. Box 1919 

Marion, OH 43306 
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NO POSTAGE 

NECESSARY. 

IF MAILED 

IN THE 

UNITED STATES 



More colorful enjoy- 
ment for your Atari 
from Antic. Each of 
these BASIC programs 
is a mini computer art- 
work, just for you! 



1 PRINT ""sUHftT GHftPHICS 
M0DEC9,ie,llJ"; :IMPUT 

A 

29 REM LIGHT5H0U a2 

38 GRAPHICS A : FOR 1=8 T 

O 79: FOR J=B TO 79 : COLO 

R I+J/4+4 

40 PLOT I.79-J:PLOT J, 7 

9-I:PL0T 79-J,79-I:PL0T 
79-I,79-J:PL0T 79-1. J: 

PLOT 79-J,l:PL0T I - J : PL 

OT J-I 

50 NEXT J:NEKT I 

60 GOTO 68 



5 Z=0 

18 GRAPHICS 11 

28 FOR 1=1 TO 79 

38 Z=Z*l:IF Z>9 THEN Z= 

1 

35 COLOR Z 

48 PLOT I,K:DRAUT0 79-1 

, K 

50 PLOT I, 198-K:DRAWT0 

79-I.190-K 

68 K=K*2:IF K>19B THEM 

X = 8 

78 HEKT I:Z=Z+l:GOTO 10 



10 
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55 

8-1 

60 

65 



GRAPHICS 8+16 

SETCOLOR 2.18.0 

FOR 1=1 TO 190 STEP 

PLOT I,0:DRAUT0 380. 

PLOT 3B0-I.198:DRAUT 

190-1 
PLOT 0. 190-1 :DRAUT0 

PLOT 300.I:DRAUT0 30 
.198 

MEKT I 

GOTO 65 



18 GRAPHICS 11 

20 FOR K=0 TO 78 

30 C=C+l:COLOR C : IF C=l 

27 THEN C=8 

48 PLOT K.V:DRAMT0 78-K 

.Y:DHAWT0 78-K,191-Y:DR 

AUTO K,191-Y:DRAUT0 K.Y 

58 Y=Y+2:IF Y>191 THEN 

Y = B 

68 NEXT X:G0T0 28 



